home *** CD-ROM | disk | FTP | other *** search
/ Internet Pratica / IPRAT_01.iso / ASP / ASPapp Portal / aa_register.asp < prev    next >
Encoding:
Text File  |  2002-03-12  |  12.6 KB  |  406 lines
  1. <!-- #include file="i_utils.asp" -->
  2. <%
  3. %>
  4. <%
  5.     dim user_id
  6.     dim user_type_id
  7.     dim user_name
  8.     dim f_name
  9.     dim l_name
  10.     dim email
  11.     dim password
  12.     dim addr1
  13.     dim addr2
  14.     dim city
  15.     dim state
  16.     dim postalcode
  17.     dim country
  18.     dim phone
  19.     dim fax
  20.     dim notes
  21.     dim selfemp
  22.     dim dtInserted
  23.     dim dtModified
  24.     dim accesslevel
  25.     dim mailing_list
  26.     dim util_val
  27.     dim util_flag
  28.     dim register_sql
  29.  
  30. sub request_register
  31. ''' request expected input parameters for this form
  32.     user_id = request("user_id")
  33.     user_type_id = request("user_type_id")
  34.     user_name = request("user_name")
  35.     f_name = request("f_name")
  36.     l_name = request("l_name")
  37.     email = request("email")
  38.     password = request("password")
  39.     addr1 = request("addr1")
  40.     addr2 = request("addr2")
  41.     city = request("city")
  42.     state = request("state")
  43.     postalcode = request("postalcode")
  44.     country = request("country")
  45.     phone = request("phone")
  46.     fax = request("fax")
  47.     notes = request("notes")
  48.     selfemp = request("selfemp")
  49.     dtInserted = request("dtInserted")
  50.     dtModified = request("dtModified")
  51.     accesslevel = request("accesslevel")
  52.     mailing_list = request("mailing_list")
  53.     util_val = request("util_val")
  54.     util_flag = request("util_flag")
  55. end sub
  56.  
  57. sub validate_register
  58. ''' request and validate data entered from this form
  59.     user_id = trim(request("user_id"))
  60.     user_type_id = trim(request("user_type_id"))
  61.     user_name = trim(request("user_name"))
  62.     f_name = trim(request("f_name"))
  63.     l_name = trim(request("l_name"))
  64.     email = trim(request("email"))
  65.     password = trim(request("password"))
  66.     addr1 = trim(request("addr1"))
  67.     addr2 = trim(request("addr2"))
  68.     city = trim(request("city"))
  69.     state = trim(request("state"))
  70.     postalcode = trim(request("postalcode"))
  71.     country = trim(request("country"))
  72.     phone = trim(request("phone"))
  73.     fax = trim(request("fax"))
  74.     notes = trim(request("notes"))
  75.     selfemp = trim(request("selfemp"))
  76.     dtInserted = trim(request("dtInserted"))
  77.     if dtInserted <> "" AND (not isdate(dtInserted)) then
  78.         error_list.add "485210date","dtInserted must be a valid date (MM/DD/YY)."
  79.         b_error = true
  80.     end if
  81.     dtModified = trim(request("dtModified"))
  82.     if dtModified <> "" AND (not isdate(dtModified)) then
  83.         error_list.add "485211date","dtModified must be a valid date (MM/DD/YY)."
  84.         b_error = true
  85.     end if
  86.     accesslevel = trim(request("accesslevel"))
  87.     mailing_list = trim(request("mailing_list"))
  88.     if mailing_list = "" then
  89.         error_list.add "485213","mailing_list must be specified."
  90.         b_error = true
  91.     end if
  92.     util_val = trim(request("util_val"))
  93.     util_flag = trim(request("util_flag"))
  94.     if util_flag = "" then
  95.         error_list.add "485215","util_flag must be specified."
  96.         b_error = true
  97.     end if
  98. end sub
  99.  
  100. sub get_defaults_register
  101. ''' set default values for this form
  102.     mailing_list = 1
  103.     util_flag = 1
  104. end sub
  105.  
  106. sub db_select_register
  107.     sql = "SELECT " & _ 
  108.     "user_id, " & _ 
  109.     "user_type_id, " & _ 
  110.     "user_name, " & _ 
  111.     "f_name, " & _ 
  112.     "l_name, " & _ 
  113.     "email, " & _ 
  114.     "password, " & _ 
  115.     "addr1, " & _ 
  116.     "addr2, " & _ 
  117.     "city, " & _ 
  118.     "state, " & _ 
  119.     "postalcode, " & _ 
  120.     "country, " & _ 
  121.     "phone, " & _ 
  122.     "fax, " & _ 
  123.     "notes, " & _ 
  124.     "selfemp, " & _ 
  125.     "dtInserted, " & _ 
  126.     "dtModified, " & _ 
  127.     "accesslevel, " & _ 
  128.     "mailing_list, " & _ 
  129.     "util_val, " & _ 
  130.     "util_flag FROM Users" & _ 
  131.     " WHERE " & _ 
  132.     "Users.user_id = " & to_sql(user_id,"number") & ""
  133.     on error resume next
  134.     set rs = user_cn.Execute(sql)
  135.     if err.number <> 0 then
  136.         b_error = true
  137.     elseif rs.EOF then
  138.         b_results = false
  139.     else
  140.         user_id = rs("user_id")
  141.         user_type_id = rs("user_type_id")
  142.         user_name = rs("user_name")
  143.         f_name = rs("f_name")
  144.         l_name = rs("l_name")
  145.         email = rs("email")
  146.         password = rs("password")
  147.         addr1 = rs("addr1")
  148.         addr2 = rs("addr2")
  149.         city = rs("city")
  150.         state = rs("state")
  151.         postalcode = rs("postalcode")
  152.         country = rs("country")
  153.         phone = rs("phone")
  154.         fax = rs("fax")
  155.         notes = rs("notes")
  156.         selfemp = rs("selfemp")
  157.         dtInserted = rs("dtInserted")
  158.         dtModified = rs("dtModified")
  159.         accesslevel = rs("accesslevel")
  160.         mailing_list = rs("mailing_list")
  161.         util_val = rs("util_val")
  162.         util_flag = rs("util_flag")
  163.     end if
  164.     rs.Close
  165.     on error goto 0
  166. end sub
  167. sub db_insert_register
  168.     sql = "INSERT INTO Users" & _ 
  169.     "(" & _ 
  170.     "user_type_id," & _ 
  171.     "user_name," & _ 
  172.     "f_name," & _ 
  173.     "l_name," & _ 
  174.     "email," & _ 
  175.     "password," & _ 
  176.     "addr1," & _ 
  177.     "addr2," & _ 
  178.     "city," & _ 
  179.     "state," & _ 
  180.     "postalcode," & _ 
  181.     "country," & _ 
  182.     "phone," & _ 
  183.     "fax," & _ 
  184.     "notes," & _ 
  185.     "selfemp," & _ 
  186.     "dtInserted," & _ 
  187.     "dtModified," & _ 
  188.     "accesslevel," & _ 
  189.     "mailing_list," & _ 
  190.     "util_val," & _ 
  191.     "util_flag" & _ 
  192.     ") VALUES (" & to_sql(user_type_id,"number") & "," & _ 
  193.     "" & to_sql(user_name,"text") & "," & _ 
  194.     "" & to_sql(f_name,"text") & "," & _ 
  195.     "" & to_sql(l_name,"text") & "," & _ 
  196.     "" & to_sql(email,"text") & "," & _ 
  197.     "" & to_sql(password,"text") & "," & _ 
  198.     "" & to_sql(addr1,"text") & "," & _ 
  199.     "" & to_sql(addr2,"text") & "," & _ 
  200.     "" & to_sql(city,"text") & "," & _ 
  201.     "" & to_sql(state,"text") & "," & _ 
  202.     "" & to_sql(postalcode,"text") & "," & _ 
  203.     "" & to_sql(country,"text") & "," & _ 
  204.     "" & to_sql(phone,"text") & "," & _ 
  205.     "" & to_sql(fax,"text") & "," & _ 
  206.     "" & to_sql(notes,"text") & "," & _ 
  207.     "" & to_sql(selfemp,"text") & "," & _ 
  208.     "" & to_sql(dtInserted,"text") & "," & _ 
  209.     "" & to_sql(dtModified,"text") & "," & _ 
  210.     "" & to_sql(accesslevel,"number") & "," & _ 
  211.     "" & to_sql(mailing_list,"number") & "," & _ 
  212.     "" & to_sql(util_val,"number") & "," & _ 
  213.     "" & to_sql(util_flag,"number") & ")" & _ 
  214.     ""
  215.     'response.write sql
  216.     on error resume next
  217.     user_cn.Execute(sql)
  218.     if err.Number <> 0 then
  219.         b_error = true
  220.     else
  221.         set rs = user_cn.Execute("SELECT @@IDENTITY")
  222.         user_id = rs(0)
  223.         rs.Close
  224.     end if
  225.     on error goto 0
  226. end sub
  227. sub db_update_register
  228.     sql = "UPDATE Users SET " & _ 
  229.     "user_type_id = " & to_sql(user_type_id,"number") & ", " & _ 
  230.     "user_name = " & to_sql(user_name,"text") & ", " & _ 
  231.     "f_name = " & to_sql(f_name,"text") & ", " & _ 
  232.     "l_name = " & to_sql(l_name,"text") & ", " & _ 
  233.     "email = " & to_sql(email,"text") & ", " & _ 
  234.     "password = " & to_sql(password,"text") & ", " & _ 
  235.     "addr1 = " & to_sql(addr1,"text") & ", " & _ 
  236.     "addr2 = " & to_sql(addr2,"text") & ", " & _ 
  237.     "city = " & to_sql(city,"text") & ", " & _ 
  238.     "state = " & to_sql(state,"text") & ", " & _ 
  239.     "postalcode = " & to_sql(postalcode,"text") & ", " & _ 
  240.     "country = " & to_sql(country,"text") & ", " & _ 
  241.     "phone = " & to_sql(phone,"text") & ", " & _ 
  242.     "fax = " & to_sql(fax,"text") & ", " & _ 
  243.     "notes = " & to_sql(notes,"text") & ", " & _ 
  244.     "selfemp = " & to_sql(selfemp,"text") & ", " & _ 
  245.     "dtInserted = " & to_sql(dtInserted,"text") & ", " & _ 
  246.     "dtModified = " & to_sql(dtModified,"text") & ", " & _ 
  247.     "accesslevel = " & to_sql(accesslevel,"number") & ", " & _ 
  248.     "mailing_list = " & to_sql(mailing_list,"number") & ", " & _ 
  249.     "util_val = " & to_sql(util_val,"number") & ", " & _ 
  250.     "util_flag = " & to_sql(util_flag,"number") & " WHERE " & _ 
  251.     "user_id = " & to_sql(user_id,"number") & ""
  252.     'response.write sql
  253.     on error resume next
  254.     user_cn.execute(sql)
  255.     if err.number <> 0 then
  256.         b_error = true
  257.     end if
  258.     on error goto 0
  259. end sub
  260. sub db_delete_register
  261.     sql = "DELETE FROM Users" & _ 
  262.     " WHERE " & _ 
  263.     "user_id = " & to_sql(user_id,"number") & ""
  264.     'response.write sql
  265.     on error resume next
  266.     user_cn.Execute(sql)
  267.     if err.number <> 0 then
  268.         b_error = true
  269.     end if
  270.     on error goto 0
  271. end sub
  272.  
  273. do_search = request("do_search")
  274. ''' request form keys
  275. user_id = request("user_id")
  276. ''' request action
  277. action = lcase(request("action"))
  278. ''' action case handler
  279. select case action
  280.  
  281. case "select_register"
  282. '  select the requested key record from database
  283. if user_id <> "" then
  284.     db_select_register
  285. else
  286.     b_error = true
  287.     error_list.add "edit_register", "Specify record to select."
  288. end if
  289.  
  290.  
  291. case "insert_register"
  292. '  request form data and insert a new record into database
  293.  
  294. validate_register
  295. if not b_error then
  296.     db_insert_register
  297. end if
  298.  
  299.  
  300.  
  301. case "update_register"
  302. '  request form data and update an existing database record
  303. validate_register
  304. if not b_error then
  305. if user_id <> "" then
  306.     db_update_register
  307. else
  308.     b_error = true
  309.     error_list.add "update_register", "Specify record to update."
  310. end if
  311. end if
  312.  
  313.  
  314. case "delete_register"
  315. '  delete the requested key database record
  316. if user_id <> "" then
  317.     db_delete_register
  318.     response.redirect request.servervariables("script_name") & "?msg=The+record+was+deleted."
  319. else
  320.     b_error = true
  321.     error_list.add "delete_register", "Specify record to delete."
  322. end if
  323.  
  324.  
  325. end select
  326.  
  327. '  no action was specified, so handle the default case(s)
  328. if user_id <> "" then
  329.     db_select_register
  330. else
  331.     get_defaults_register
  332. end if
  333.  
  334.  
  335. %>
  336.  
  337.  
  338. <%
  339. display_errs
  340. display_msg
  341. %>
  342.  
  343. <table  >
  344. <form name="register" action="" method="" >
  345.         
  346.         <input type=hidden name="user_id" value="<% =user_id %>">
  347.         
  348. <tr>
  349.     <td class='labelTD'>user_type_id</td>
  350.     <td class='dataTD' >
  351.         <input type=text  name="user_type_id" size="20" maxlength="25" value="<% =user_type_id%>">
  352.     </td>
  353. </tr>
  354. <tr>
  355.     <td class='labelTD'>user_name</td>
  356.     <td class='dataTD' >
  357.         <input type=text  name="user_name" size="20" maxlength="50" value="<% =user_name%>">
  358.     </td>
  359. </tr>
  360. <tr>
  361.     <td class='labelTD'>f_name</td>
  362.     <td class='dataTD' >
  363.         <input type=text  name="f_name" size="20" maxlength="50" value="<% =f_name%>">
  364.     </td>
  365. </tr>
  366. <tr>
  367.     <td class='labelTD'>l_name</td>
  368.     <td class='dataTD' >
  369.         <input type=text  name="l_name" size="20" maxlength="70" value="<% =l_name%>">
  370.     </td>
  371. </tr>
  372. <tr>
  373.     <td class='labelTD'>email</td>
  374.     <td class='dataTD' >
  375.         <input type=text  name="email" size="20" maxlength="60" value="<% =email%>">
  376.     </td>
  377. </tr>
  378. <tr>
  379.     <td class='labelTD'>password</td>
  380.     <td class='dataTD' >
  381.         <input type=text  name="password" size="20" maxlength="50" value="<% =password%>">
  382.     </td>
  383. </tr>
  384. <tr>
  385.     <td class='labelTD'>addr1</td>
  386.     <td class='dataTD' >
  387.         <input type=text  name="addr1" size="20" maxlength="100" value="<% =addr1%>">
  388.     </td>
  389. </tr>
  390. <tr>
  391.     <td class='labelTD'>addr2</td>
  392.     <td class='dataTD' >
  393.         <input type=text  name="addr2" size="20" maxlength="50" value="<% =addr2%>">
  394.     </td>
  395. </tr>
  396. <tr>
  397.     <td class='labelTD'>city</td>
  398.     <td class='dataTD' >
  399.         <input type=text  name="city" size="20" maxlength="50" value="<% =city%>">
  400.     </td>
  401. </tr>
  402. <tr>
  403.     <td class='labelTD'>state</td>
  404.     <td class='dataTD' >
  405.         <input type=text  name="state" size="20" maxlength="50" value="<% =state%>">
  406.     </td>
  407. </tr>
  408. <tr>
  409.     <td class='labelTD'>postalcode</td>
  410.     <td class='dataTD' >
  411.         <input type=text  name="postalcode" size="20" maxlength="50" value="<% =postalcode%>">
  412.     </td>
  413. </tr>
  414. <tr>
  415.     <td class='labelTD'>country</td>
  416.     <td class='dataTD' >
  417.         <input type=text  name="country" size="20" maxlength="50" value="<% =country%>">
  418.     </td>
  419. </tr>
  420. <tr>
  421.     <td class='labelTD'>phone</td>
  422.     <td class='dataTD' >
  423.         <input type=text  name="phone" size="20" maxlength="50" value="<% =phone%>">
  424.     </td>
  425. </tr>
  426. <tr>
  427.     <td class='labelTD'>fax</td>
  428.     <td class='dataTD' >
  429.         <input type=text  name="fax" size="20" maxlength="50" value="<% =fax%>">
  430.     </td>
  431. </tr>
  432. <tr>
  433.     <td class='labelTD'>notes</td>
  434.     <td class='dataTD' >
  435.         
  436.         <textarea  name="notes" rows='10' cols='70'><% =notes%></textarea>
  437.         
  438.     </td>
  439. </tr>
  440. <tr>
  441.     <td class='labelTD'>selfemp</td>
  442.     <td class='dataTD' >
  443.         <input type=text  name="selfemp" size="20" maxlength="" value="<% =selfemp%>">
  444.     </td>
  445. </tr>
  446. <tr>
  447.     <td class='labelTD'>dtInserted</td>
  448.     <td class='dataTD' >
  449.         <input type=text  name="dtInserted" size="20" maxlength="10" value="<% =dtInserted%>">
  450.     </td>
  451. </tr>
  452. <tr>
  453.     <td class='labelTD'>dtModified</td>
  454.     <td class='dataTD' >
  455.         <input type=text  name="dtModified" size="20" maxlength="10" value="<% =dtModified%>">
  456.     </td>
  457. </tr>
  458. <tr>
  459.     <td class='labelTD'>accesslevel</td>
  460.     <td class='dataTD' >
  461.         <input type=text  name="accesslevel" size="20" maxlength="25" value="<% =accesslevel%>">
  462.     </td>
  463. </tr>
  464. <tr>
  465.     <td class='labelTD'>mailing_list</td>
  466.     <td class='dataTD' >
  467.         <% if mailing_list = "" then mailing_list = false %>
  468.         <input type=checkbox  <% if mailing_list then %>checked<% end if %> name="mailing_list" value="1">
  469.     </td>
  470. </tr>
  471. <tr>
  472.     <td class='labelTD'>util_val</td>
  473.     <td class='dataTD' >
  474.         <input type=text  name="util_val" size="20" maxlength="25" value="<% =util_val%>">
  475.     </td>
  476. </tr>
  477. <tr>
  478.     <td class='labelTD'>util_flag</td>
  479.     <td class='dataTD' >
  480.         <% if util_flag = "" then util_flag = false %>
  481.         <input type=checkbox  <% if util_flag then %>checked<% end if %> name="util_flag" value="1">
  482.     </td>
  483. </tr>
  484.  
  485. </form>
  486. </table>
  487.  
  488.  
  489.  
  490.  
  491. <%
  492. ':: assure that any db resources are freed
  493. on error resume next
  494. rs.Close
  495. set rs = NOTHING
  496. cn.Close
  497. set cn = NOTHING
  498. user_cn.Close
  499. set user_cn = NOTHING
  500. on error goto 0
  501. %>
  502.